/ Whiteline: Alpha / Whiteline Alpha.iso / vision / programm / paintshp / gpl / textdemo.gpl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1b 62 30 1b 63 30 01 12 | d7 44 74 6d 47 50 4c 00 |.b0.c0..|.DtmGPL.|
|00000010| 2f 00 13 27 20 2a 20 2a | 20 2a 20 2a 20 2a 20 2a |/..' * *| * * * *|
|00000020| 20 2a 20 2a 20 2a 00 13 | 27 20 2a 20 20 20 54 65 | * * *..|' *   Te|
|00000030| 78 74 2d 44 65 6d 6f 20 | 20 20 2a 00 13 27 20 2a |xt-Demo |  *..' *|
|00000040| 20 2a 20 2a 20 2a 20 2a | 20 2a 20 2a 20 2a 20 2a | * * * *| * * * *|
|00000050| 00 2d 27 20 20 41 6c 73 | 20 47 72 61 66 69 6b 7a |.-'  Als| Grafikz|
|00000060| 65 69 63 68 65 6e 73 84 | 74 7a 65 20 73 6f 6c 6c |eichens.|tze soll|
|00000070| 74 65 6e 20 27 46 4f 47 | 5f 46 52 41 4d 27 2c 00 |ten 'FOG|_FRAM',.|
|00000080| 26 27 20 20 27 46 4f 47 | 27 20 75 6e 64 20 27 50 |&'  'FOG|' und 'P|
|00000090| 41 52 41 5f 48 4f 52 27 | 20 67 65 6c 61 64 65 6e |ARA_HOR'| geladen|
|000000a0| 20 73 65 69 6e 20 21 00 | 03 43 4c 53 00 27 73 3d | sein !.|.CLS.'s=|
|000000b0| 53 54 52 49 4e 47 28 22 | 50 61 69 6e 74 53 68 6f |STRING("|PaintSho|
|000000c0| 70 20 70 6c 75 73 20 56 | 65 72 73 69 6f 6e 20 32 |p plus V|ersion 2|
|000000d0| 2e 30 31 22 29 00 08 6c | 3d 4c 45 4e 28 73 29 00 |.01")..l|=LEN(s).|
|000000e0| 0c 6b 3d 44 49 56 28 33 | 36 30 2c 6c 29 00 0a 62 |.k=DIV(3|60,l)..b|
|000000f0| 3d 44 49 56 28 6b 2c 32 | 29 00 0a 47 4f 53 55 42 |=DIV(k,2|)..GOSUB|
|00000100| 20 69 6e 73 74 00 09 57 | 48 49 4c 45 20 6e 3c 6c | inst..W|HILE n<l|
|00000110| 00 10 20 20 47 4f 53 55 | 42 20 70 72 6f 7a 65 64 |..  GOSU|B prozed|
|00000120| 75 72 00 0f 20 20 4f 55 | 54 50 55 54 20 78 2c 35 |ur..  OU|TPUT x,5|
|00000130| 30 2c 63 00 04 57 45 4e | 44 00 0a 47 4f 53 55 42 |0,c..WEN|D..GOSUB|
|00000140| 20 69 6e 73 74 00 09 57 | 48 49 4c 45 20 6e 3c 6c | inst..W|HILE n<l|
|00000150| 00 10 20 20 47 4f 53 55 | 42 20 70 72 6f 7a 65 64 |..  GOSU|B prozed|
|00000160| 75 72 00 0a 20 20 79 3d | 53 49 4e 28 77 29 00 0a |ur..  y=|SIN(w)..|
|00000170| 20 20 4d 55 4c 20 79 2c | 35 30 00 0b 20 20 41 44 |  MUL y,|50..  AD|
|00000180| 44 20 79 2c 33 30 30 00 | 0e 20 20 4f 55 54 50 55 |D y,300.|.  OUTPU|
|00000190| 54 20 78 2c 79 2c 63 00 | 09 20 20 41 44 44 20 77 |T x,y,c.|.  ADD w|
|000001a0| 2c 6b 00 04 57 45 4e 44 | 00 0a 47 4f 53 55 42 20 |,k..WEND|..GOSUB |
|000001b0| 69 6e 73 74 00 09 57 48 | 49 4c 45 20 6e 3c 6c 00 |inst..WH|ILE n<l.|
|000001c0| 10 20 20 47 4f 53 55 42 | 20 70 72 6f 7a 65 64 75 |.  GOSUB| prozedu|
|000001d0| 72 00 0a 20 20 79 3d 53 | 49 4e 28 77 29 00 0a 20 |r..  y=S|IN(w).. |
|000001e0| 20 4d 55 4c 20 79 2c 35 | 30 00 0e 20 20 79 3d 53 | MUL y,5|0..  y=S|
|000001f0| 55 42 28 32 30 30 2c 79 | 29 00 0e 20 20 4f 55 54 |UB(200,y|)..  OUT|
|00000200| 50 55 54 20 78 2c 79 2c | 63 00 09 20 20 41 44 44 |PUT x,y,|c..  ADD|
|00000210| 20 77 2c 62 00 04 57 45 | 4e 44 00 04 45 44 49 54 | w,b..WE|ND..EDIT|
|00000220| 00 01 27 00 09 70 72 6f | 7a 65 64 75 72 3a 00 0e |..'..pro|zedur:..|
|00000230| 20 20 49 4e 43 4d 41 58 | 20 64 2c 33 2c 31 00 0b |  INCMAX| d,3,1..|
|00000240| 20 20 44 45 46 54 45 58 | 54 20 64 00 07 20 20 49 |  DEFTEX|T d..  I|
|00000250| 4e 43 20 6e 00 0e 20 20 | 63 3d 4d 49 44 28 73 2c |NC n..  |c=MID(s,|
|00000260| 6e 2c 31 29 00 0a 20 20 | 41 44 44 20 78 2c 32 30 |n,1)..  |ADD x,20|
|00000270| 00 06 52 45 54 55 52 4e | 00 01 27 00 05 69 6e 73 |..RETURN|..'..ins|
|00000280| 74 3a 00 07 20 20 43 4c | 52 20 6e 00 06 20 20 78 |t:..  CL|R n..  x|
|00000290| 3d 33 30 00 06 52 45 54 | 55 52 4e 00 00 1a 1b 62 |=30..RET|URN....b|
|000002a0| 31                      |                         |1       |        |
+--------+-------------------------+-------------------------+--------+--------+